home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / bmaguide.raz < prev    next >
Text File  |  1994-11-23  |  747b  |  33 lines
  1. /** $VER: BMAGuide.raz 1.0 (23.11.94)
  2.  **
  3.  ** Ajoute une marque pour chaque constituant d'une database
  4.  ** au format AmigaGuide.
  5.  **/
  6.  
  7. OPTIONS RESULTS
  8.  
  9. /*------- Sauvegarde la position de départ --------*/
  10.  
  11. ReqClose Bookmarks      /* ferme la palette des marques */
  12.  
  13. Lock INPUT DISPLAY /*STATUS*/ ON
  14. GetPos; PARSE VAR RESULT startline startcol .
  15. Cursor 1 1
  16.  
  17. /*------- Parcoure les lignes du texte --------*/
  18.  
  19. DO FOREVER
  20.     Search RESET CONVERT SOL '"@NODE"'; IF (RC >= 5) THEN BREAK
  21.     GetLine; line = RESULT
  22.     IF LENGTH(line)~=0 THEN BMAdd "'"||line||"'"
  23. END
  24.  
  25. /*------- Restore la position de départ --------*/
  26.  
  27. Cursor startline startcol
  28. Lock INPUT DISPLAY /*STATUS*/ OFF
  29.  
  30. /*------- Ouvre la sélection flottante --------*/
  31.  
  32. ReqOpen Bookmarks
  33.